home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / untcnvrs.sit / Unit Conversion / card_8156.txt < prev    next >
Text File  |  1990-11-02  |  10KB  |  407 lines
  1. -- card: 8156 from stack: in
  2. -- bmap block id: 8304
  3. -- flags: 0000
  4. -- background id: 3044
  5. -- name: Volume2
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   put empty into background field "toconvert"
  9.   put empty into background field "answer"
  10. end closeCard
  11.  
  12.  
  13.  
  14. -- part 14 (button)
  15. -- low flags: 00
  16. -- high flags: 2000
  17. -- rect: left=75 top=288 right=304 bottom=134
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Distance
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   visual effect zoom open
  29.   go to card Distance
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 15 (button)
  35. -- low flags: 00
  36. -- high flags: 2000
  37. -- rect: left=75 top=306 right=323 bottom=134
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Temperature
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   visual effect zoom open
  49.   go to card weight
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 16 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=135 top=288 right=304 bottom=194
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Area
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   visual effect zoom open
  69.   go to card Area
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 17 (button)
  75. -- low flags: 00
  76. -- high flags: 2000
  77. -- rect: left=135 top=306 right=323 bottom=194
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Temperature
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   visual effect zoom open
  89.   go to card temperature
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 25 (button)
  95. -- low flags: 00
  96. -- high flags: A003
  97. -- rect: left=282 top=283 right=323 bottom=475
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: Original Conversions
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   get background field "toconvert"
  109.   visual effect wipe left slowly
  110.   go to card "Volume"
  111.   put it into background field "toconvert"
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 28 (button)
  117. -- low flags: 00
  118. -- high flags: A003
  119. -- rect: left=283 top=49 right=76 bottom=475
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Liters to Quarts (Dry)
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   set numberformat to 0.000
  131.   put empty into background field "answer"
  132.   get first word of background field "toconvert"
  133.   put it into temp
  134.   if temp is "-" then
  135.     get second word of background field "toconvert"
  136.     divide it by -1
  137.     put it into temp
  138.   end if
  139.   put empty into background field "toconvert"
  140.   if temp is empty then
  141.     put temp && "0 Liters (Dry)" into background field "toconvert"
  142.   else
  143.     put temp && " Liters (Dry)" into background field "toconvert"
  144.   end if
  145.   multiply temp by 0.908
  146.   put temp && " Quarts (Dry)" into background field "answer"
  147.   put empty into temp
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 29 (button)
  153. -- low flags: 00
  154. -- high flags: A003
  155. -- rect: left=283 top=77 right=104 bottom=475
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 0 / 0
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: Quarts to Liters (Dry)
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   set numberformat to 0.000
  167.   put empty into background field "answer"
  168.   get first word of background field "toconvert"
  169.   put it into temp
  170.   if temp is "-" then
  171.     get second word of background field "toconvert"
  172.     divide it by -1
  173.     put it into temp
  174.   end if
  175.   put empty into background field "toconvert"
  176.   if temp is empty then
  177.     put temp && "0 Quarts (Dry)" into background field "toconvert"
  178.   else
  179.     put temp && " Quarts (Dry)" into background field "toconvert"
  180.   end if
  181.   multiply temp by 1.101
  182.   put temp && " Liters (Dry)" into background field "answer"
  183.   put empty into temp
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part 30 (button)
  189. -- low flags: 00
  190. -- high flags: A003
  191. -- rect: left=283 top=107 right=134 bottom=475
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Liters to Quarts (Liq.)
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   set numberformat to 0.000
  203.   put empty into background field "answer"
  204.   get first word of background field "toconvert"
  205.   put it into temp
  206.   if temp is "-" then
  207.     get second word of background field "toconvert"
  208.     divide it by -1
  209.     put it into temp
  210.   end if
  211.   put empty into background field "toconvert"
  212.   if temp is empty then
  213.     put temp && "0 Liters (Liq.)" into background field "toconvert"
  214.   else
  215.     put temp && " Liters (Liq.)" into background field "toconvert"
  216.   end if
  217.   multiply temp by 1.0567
  218.   put temp && " Quarts (Liq.)" into background field "answer"
  219.   put empty into temp
  220. end mouseUp
  221.  
  222.  
  223.  
  224. -- part 31 (button)
  225. -- low flags: 00
  226. -- high flags: A003
  227. -- rect: left=283 top=135 right=162 bottom=475
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: Quarts to Liters (Liq.)
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   set numberformat to 0.000
  239.   put empty into background field "answer"
  240.   get first word of background field "toconvert"
  241.   put it into temp
  242.   if temp is "-" then
  243.     get second word of background field "toconvert"
  244.     divide it by -1
  245.     put it into temp
  246.   end if
  247.   put empty into background field "toconvert"
  248.   if temp is empty then
  249.     put temp && "0 Quarts (Liq.)" into background field "toconvert"
  250.   else
  251.     put temp && " Quarts (Liq.)" into background field "toconvert"
  252.   end if
  253.   multiply temp by 0.9463
  254.   put temp && " Liters (Liq.)" into background field "answer"
  255.   put empty into temp
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part 32 (button)
  261. -- low flags: 00
  262. -- high flags: A003
  263. -- rect: left=283 top=166 right=193 bottom=475
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: Liters to US Gallons (Liq.)
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   set numberformat to 0.000
  275.   put empty into background field "answer"
  276.   get first word of background field "toconvert"
  277.   put it into temp
  278.   if temp is "-" then
  279.     get second word of background field "toconvert"
  280.     divide it by -1
  281.     put it into temp
  282.   end if
  283.   put empty into background field "toconvert"
  284.   if temp is empty then
  285.     put temp && "0 liters (liq.)" into background field "toconvert"
  286.   else
  287.     put temp && " liters (liq.)" into background field "toconvert"
  288.   end if
  289.   divide temp by 3.785
  290.   put temp && " US gallons (liq.)" into background field "answer"
  291.   put empty into temp
  292. end mouseUp
  293.  
  294.  
  295.  
  296. -- part 33 (button)
  297. -- low flags: 00
  298. -- high flags: A003
  299. -- rect: left=283 top=194 right=221 bottom=475
  300. -- title width / last selected line: 0
  301. -- icon id / first selected line: 0 / 0
  302. -- text alignment: 1
  303. -- font id: 0
  304. -- text size: 12
  305. -- style flags: 0
  306. -- line height: 16
  307. -- part name: US Gallons to Liters (Liq.)
  308. ----- HyperTalk script -----
  309. on mouseUp
  310.   set numberformat to 0.000
  311.   put empty into background field "answer"
  312.   get first word of background field "toconvert"
  313.   put it into temp
  314.   if temp is "-" then
  315.     get second word of background field "toconvert"
  316.     divide it by -1
  317.     put it into temp
  318.   end if
  319.   put empty into background field "toconvert"
  320.   if temp is empty then
  321.     put temp && "0 US gallons ( liq.)" into background field "toconvert"
  322.   else
  323.     put temp && " US gallons ( liq.)" into background field "toconvert"
  324.   end if
  325.   divide temp by 0.264
  326.   put temp && " liters ( liq.)" into background field "answer"
  327.   put empty into temp
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 34 (button)
  333. -- low flags: 00
  334. -- high flags: A003
  335. -- rect: left=283 top=224 right=251 bottom=475
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Liters to Imp. Gal. (Liq.)
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   set numberformat to 0.000
  347.   put empty into background field "answer"
  348.   get first word of background field "toconvert"
  349.   put it into temp
  350.   if temp is "-" then
  351.     get second word of background field "toconvert"
  352.     divide it by -1
  353.     put it into temp
  354.   end if
  355.   put empty into background field "toconvert"
  356.   if temp is empty then
  357.     put temp && "0 liters (liq.)" into background field "toconvert"
  358.   else
  359.     put temp && " liters (liq.)" into background field "toconvert"
  360.   end if
  361.   divide temp by 4.546
  362.   put temp && " Imp. Gal. (liq.)" into background field "answer"
  363.   put empty into temp
  364. end mouseUp
  365.  
  366.  
  367.  
  368. -- part 36 (button)
  369. -- low flags: 00
  370. -- high flags: A003
  371. -- rect: left=283 top=252 right=279 bottom=475
  372. -- title width / last selected line: 0
  373. -- icon id / first selected line: 0 / 0
  374. -- text alignment: 1
  375. -- font id: 0
  376. -- text size: 12
  377. -- style flags: 0
  378. -- line height: 16
  379. -- part name: Imp. Gal. to Liters (Liq.)
  380. ----- HyperTalk script -----
  381. on mouseUp
  382.   set numberformat to 0.000
  383.   put empty into background field "answer"
  384.   get first word of background field "toconvert"
  385.   put it into temp
  386.   if temp is "-" then
  387.     get second word of background field "toconvert"
  388.     divide it by -1
  389.     put it into temp
  390.   end if
  391.   put empty into background field "toconvert"
  392.   if temp is empty then
  393.     put temp && "0 Imp. Gal. (Liq.)" into background field "toconvert"
  394.   else
  395.     put temp && " Imp. Gal. (Liq.)" into background field "toconvert"
  396.   end if
  397.   multiply temp by 4.546
  398.   put temp && " Liters (Liq.)" into background field "answer"
  399.   put empty into temp
  400. end mouseUp
  401.  
  402.  
  403.  
  404. -- part contents for background part 7
  405. ----- text -----
  406. Volume
  407. Conversions